10 POKE56,56:CLR:DV=PEEK(186):IFDV<8ORDV>29THENDV=8
12 POKE788,49:TQ=TI
14 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
20 SYS57812"SPIRAL FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
22 IFTI<TQ+100THEN22
30 POKE53272,31
100 GOSUB 1000: REM INITIALIZE
110 GOSUB 2000: REM INSTRUCTIONS
120 GOSUB 3000: REM CONDITIONS, BOARD
130 ON M GOTO 140,140,180,180
140 GOSUB 5000: REM PLAYER MOVE
150 IF JK=1 THEN 7200:REM STOPPED
160 JJ=HH: GOSUB 8000: IF EM=0 THEN ON W GOTO 7000,7100: REM GAME WON/LOST
170 Y=5-Y: ON M GOTO 180,140,180,110
180 GOSUB 6000: REM COMPUTER MOVE
190 IF JK=1 THEN 7200: REM STOPPED
200 JJ=HH: GOSUB 8000: IF EM=0 THEN ON W GOTO 7000,7100: REM GAME WON/LOST
210 Y=5-Y: ON M GOTO 140,110,140,180
1000 DIMM%(38,2),A%(3),B%(3,5),S$(5),D$(1):REM   POKE808,225:POKE818,32
1010 POKE53371,0:FORI=1TO38:READM%(I,0):READM%(I,1):NEXT
1020 DATA10,13,10,15,12,15,14,15,14,13,14,11,14,9,14,7,12,7,10,7,8,7,6,7,6,9
1030 DATA6,11,6,13,6,15,6,17,6,19,8,19,10,19,12,19,14,19,16,19,18,19,18,17
1040 DATA18,15,18,13,18,11,18,9,18,7,18,5,18,3,16,3,14,3,12,3,10,3,8,3,6,3
1050 B$="            [157][157][157][157][157][157][157][157][157][157][157][157]":B1$=B$+B$+B$+B$+B$+B$+B$+B$+B$
1060 FORI=0TO5:READS$(I):NEXT
1070 DATA"[195][207][205][208][213][212][197][210] 2","[208][204][193][217][197][210]    ","[208][204][193][217][197][210] 1  ","[208][204][193][217][197][210] 2  ","[195][207][205][208][213][212][197][210]  "
1080 DATA"[195][207][205][208][213][212][197][210] 1"
1090 M=1:W=1:SM=1:D$(0)="[167][170][157][157][181][175]":D$(1)="[171][178][157][157][174][163]":RETURN
2000 POKE53280,0:POKE53281,0:PRINTCHR$(14);CHR$(8);:REM BY FLOYD R. KIRK
2010 PRINT"[147]";TAB(12);"[158][188][172][157][157][177][187][157][157][165][180][145][208][201][210][193][204] [145][188][172][157][157][177][187][157][157][165][180][145][204][201][196][197][154]"
2020 PRINT"  [217]OU DETERMINE THE INITIAL LAYOUT OF"
2030 PRINT"THE BOARD BY PLACING SEVERAL COINS IN A"
2040 PRINT"SERIES OF BOXES CONNECTED IN A SPIRAL,"
2050 PRINT"ONE COIN TO A BOX. [193]FTER THE COINS ARE"
2060 PRINT"PLACED, YOU AND THE COMPUTER ALTERNATE"
2070 PRINT"SLIDING ANY ONE COIN TOWARD THE CENTER,"
2080 PRINT"UP TO BUT NOT ON OR PAST THE NEXT COIN"
2090 PRINT"OR THE CENTER OF THE SPIRAL. [212]HE GAME"
2100 PRINT"ENDS WHEN NO FURTHER MOVES ARE POSSIBLE.";
2110 PRINT"  [217]OU DECIDE WHETHER THE ONE MAKING THE"
2120 PRINT"LAST MOVE WINS OR LOSES, WHO MOVES"
2130 PRINT"FIRST, AND HOW MANY COINS ARE SET IN"
2140 PRINT"WHICH BOXES. [207]N YOUR TURN, MOVE USING"
2150 PRINT"THE LEFT AND RIGHT CURSOR KEYS, THEN"
2160 PRINT"SELECT A SQUARE; THE IMMEDIATE OUTSIDE"
2170 PRINT"COIN WILL SLIDE IN TO THAT SQUARE."
2180 PRINT"  [195]AN'T BEAT THE COMPUTER? [212]HEN SWITCH"
2190 PRINT"SIDES, PLAY AGAINST ANOTHER PERSON, OR"
2200 PRINT"WATCH THE COMPUTER PLAY ITSELF."
2210 PRINT"             [159][208]RESS A KEY";:POKE198,0
2220 GETA$:IFA$=""THEN2220
2230 RETURN
3000 POKE53280,12:POKE53281,12
3005 PRINT"[147]";TAB(12);"[158][188][172][157][157][177][187][157][157][165][180][145][208][201][210][193][204] [145][188][172][157][157][177][187][157][157][165][180][145][204][201][196][197]"
3010 PRINT"  [205]OVES 1ST VS. [205]OVES 2ND"
3012 PRINT" [144][185][185][185][185][185][185][185][185][185][185][185][185]  [185][185][185][185][185][185][185][185][185][185][185][185]  F1 [195]HANGE"
3015 PRINT"[144][161]            [162][161]            [162]    PLAYERS.";
3017 PRINT" [144][182][182][182][182][182][182][182][182][182][182][182][182]  [182][182][182][182][182][182][182][182][182][182][182][182]"
3020 PRINT"[196]OES THE ONE WHO MAKES":PRINT"THE LAST MOVE WIN OR":PRINT"LOSE?"
3022 PRINTTAB(7);"[144][185][185][185][185][185][185]";TAB(29);"F3 [195]HANGE"
3025 PRINTTAB(6);"[144][161]      [162]";TAB(32);"LAST"
3027 PRINTTAB(7);"[144][182][182][182][182][182][182]";TAB(32);"MOVE."
3030 PRINT"[215]HO PUTS THE COINS":PRINT"ON THE BOARD?"
3032 PRINT"    [144][185][185][185][185][185][185][185][185][185][185]";TAB(29);"F5 [195]HANGE"
3035 PRINT"   [144][161]"TAB(14);"[162]";TAB(32);"COIN"
3037 PRINT"    [144][182][182][182][182][182][182][182][182][182][182]";TAB(32);"LAYER."
3040 PRINTTAB(29);"F7 [196]ONE."
3050 Y=M-(M>2):R=6:C=2:GOSUB9000:PRINTS$(Y);""S$(5-Y)
3060 R=12:C=8:GOSUB9000:IFW=1THENPRINT"[215][201][206] ":GOTO3070
3065 PRINT"[204][207][211][197]"
3070 R=17:C=5:GOSUB9000:PRINTLEFT$(S$(SM),8):POKE198,0
3080 GETA$:IFA$=""THEN3080
3090 IFA$="[135]"THENSM=5-SM:GOTO3070
3095 IFA$="[134]"THENW=3-W:GOTO3060
3100 IFA$="[136]"THEN3120
3105 IFA$<>"[133]"THEN3080
3110 M=M+1:IFM=5THENM=1
3115 GOTO3050
3120 GOSUB4000:IFSM=4THEN3500
3121 R=5:C=27:GOSUB9000:PRINT"3 COINS.":PRINTTAB(27);"[208]RESS [176] OR [191]"
3123 PRINTTAB(27);"TO MOVE":PRINTTAB(27);"WHITE BOX."
3124 PRINTTAB(27);"F7 [208]ICK UP":PRINTTAB(30);"OR DROP":PRINTTAB(30);"A COIN."
3126 PRINTTAB(27);"F1 [196]ONE."
3128 PRINT"";TAB(27);:IFM=1THENPRINT"[217]OU HAVE":GOTO3130
3129 PRINT"[195]OMPUTER HAS"
3130 PRINTTAB(27);"FIRST MOVE.":PRINTTAB(27);"[204]AST MOVE":PRINTTAB(27);
3132 IFW=1THENPRINT"WINS.":GOTO3135
3133 PRINT"LOSES."
3135 CN=3:I=1:R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2));""
3140 CH$="[157][136][133]":POKE198,0
3150 GETA$:IFA$=""THENGOSUB9100:GOTO3150
3160 JL=0:FORJ=1TO4:IFA$=MID$(CH$,J,1)THENJL=J:J=4
3170 NEXT:IFJL=0THEN3150
3180 ONJLGOTO3200,3250,3300,3350
3200 IL=I:I=I-1:IFI=0THENI=38
3210 R=M%(IL,0):C=M%(IL,1):GOSUB9000:PRINT"";D$(M%(IL,2))
3220 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2));"":GOTO3150
3250 IL=I:I=I+1:IFI=39THENI=1
3260 GOTO3210
3300 IFCN<1ANDM%(I,2)=0THEN3150
3310 M%(I,2)=1-M%(I,2):IFM%(I,2)=0THENCN=CN+1:GOTO3330
3320 CN=CN-1
3330 PRINT"";TAB(26);CN;"COIN  [157][157]";:IFCN<>1THENPRINT"S";
3340 PRINT".":R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2));"":GOTO3150
3350 R=5:C=27:GOSUB9000:PRINTB1$;"[145]";B1$
3355 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2))
3360 HH=0:JJ=38:GOSUB8000:IFEM>0THENPOKE53280,0:POKE53281,0:RETURN
3370 R=7:C=27:GOSUB9000:PRINT"[212]OO SIMPLE!"
3380 PRINTTAB(27);"[212]RY AGAIN.":POKE198,0
3390 FORJ=1TO38:M%(J,2)=0:NEXT:POKE53370,0
3400 FORJ=1TO500:GETA$:IFA$<>""THENJ=500
3410 NEXT:POKE53371,0:GOTO3120
3500 I=INT(RND(0)*2)+2
3510 J=INT(RND(0)*37)+2:IFM%(J,2)=1THEN3510
3520 R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(1):M%(J,2)=1:I=I-1:IFI>0THEN3510
3530 R=22:C=27:GOSUB9000:PRINT"[204]AST MOVE":PRINTTAB(27);
3540 IFW=1THENPRINT"WINS.":GOTO3360
3550 PRINT"LOSES."
3560 GOTO3360
4000 PRINT"[147]"TAB(30)"[158][188][172][208][201][210][193][204]"
4010 PRINTTAB(16)"[198]LOYD [203]IRK'S  [158][177][187]"
4020 PRINTTAB(30)"[158][165][180][204][201][196][197]":PRINT:PRINT
4030 PRINT"   [167][170]  [167][170][167][170][167][170][167][170][167][170][167][170][167][170]"
4040 PRINT"   [181][175]  [181][175][181][175][181][175][181][175][181][175][181][175][181][175]"
4050 PRINT"   [167][170]  [167][170]          [167][170]"
4060 PRINT"   [181][175]  [181][175]          [181][175]"
4070 PRINT"   [167][170]  [167][170]  [158][184][184][167][170][167][170]  [167][170]"
4080 PRINT"   [181][175]  [181][175]  [158][184][184][181][175][181][175]  [181][175]"
4090 PRINT"   [167][170]  [167][170]      [167][170]  [167][170]"
4100 PRINT"   [181][175]  [181][175]      [181][175]  [181][175]"
4110 PRINT"   [167][170]  [167][170][167][170][167][170][167][170][167][170]  [167][170]"
4120 PRINT"   [181][175]  [181][175][181][175][181][175][181][175][181][175]  [181][175]"
4130 PRINT"   [167][170]              [167][170]"
4140 PRINT"   [181][175]              [181][175]"
4150 PRINT"   [167][170][167][170][167][170][167][170][167][170][167][170][167][170][167][170][167][170]"
4160 PRINT"   [181][175][181][175][181][175][181][175][181][175][181][175][181][175][181][175][181][175]"
4170 RETURN
5000 R=5:C=27:GOSUB9000:PRINT"";S$(Y);"":I=1:JK=0
5002 IFM%(I,2)=1THENI=I+1:GOTO5002
5005 PRINT:PRINTTAB(27);:IFEM=1THENPRINTB$:GOTO5020
5010 PRINT"[154][208]RESS [176][154] OR [191][154]":PRINTTAB(27);"TO MOVE":PRINTTAB(27);"WHITE BOX."
5020 R=11:C=27:GOSUB9000:PRINT"F7[154] [211]ELECT":PRINTTAB(30);"SQUARE."
5022 IFM=1ORM=3THENPRINT:PRINTTAB(27);"F2[154] [211]WITCH":PRINTTAB(30);"SIDES."
5025 PRINTTAB(27);"F6[154] [197]ND GAME."
5035 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2));"":CH$="[157][136][139][137]":POKE198,0
5050 GETA$:IFA$=""THENGOSUB9100:GOTO5050
5060 JL=0:FORJ=1TO5:IFA$=MID$(CH$,J,1)THENJL=J:J=5
5070 NEXT:IFJL=0THEN5050
5080 ONJLGOTO5100,5150,5200,5250,5300
5100 IL=I
5110 I=I-1:IFI=0THENI=HH-1
5120 IFM%(I,2)=1THEN5110
5130 R=M%(IL,0):C=M%(IL,1):GOSUB9000:PRINT"";D$(M%(IL,2))
5140 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2));"":GOTO5050
5150 IL=I
5160 I=I+1:IFI=HHTHENI=1
5170 IFM%(I,2)=1THEN5160
5180 GOTO5130
5200 R=7:C=27:GOSUB9000:PRINTB1$;B$;B$;B$
5210 M%(I,2)=1:J=I+1
5220 IFM%(J,2)=0THENJ=J+1:GOTO5220
5230 M%(J,2)=0:R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(0)
5235 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(1)
5240 RETURN
5250 JK=1:GOTO5310
5300 IFM=2THEN5050
5310 R=7:C=27:GOSUB9000:PRINTB1$;B$;B$;B$
5321 R=M%(I,0):C=M%(I,1):GOSUB9000:PRINT"";D$(M%(I,2)):GOTO5240
6000 R=5:C=27:GOSUB9000:PRINT"";S$(Y);"":JK=0
6005 PRINTTAB(27);"[212]HINKING...":IFM=4THENPRINTTAB(27);"F6[154] [197]ND GAME."
6010 GOSUB8100:C2=0:FORJ=1TO N:IFA%(J)=0THENC2=C2+1
6020 NEXT:IFC2=NTHEN6300
6030 C2=0:C1=0:FORJ=1TO N:IFA%(J)=1THENC1=C1+1:GOTO6040
6035 IFA%(J)>1THENC2=C2+1:K=J
6040 NEXT:IFC2>1THENGOSUB8100:GOTO6150
6045 IFC2=0THEN6100
6050 C2=0:FORJ=HHTO2STEP-1:IFM%(J,2)=0THEN6070
6055 C2=C2+1:IF2*K-1>C2THEN6070
6060 M%(J,2)=0:X=J:GOSUB8300:R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(0):I=J:J=2
6070 NEXT
6080 IFW<>1THEN6090
6082 C2=I-A%(K)-(C1/2<>INT(C1/2)):M%(C2,2)=1
6084 R=M%(C2,0):C=M%(C2,1):GOSUB9000:PRINT"";D$(1):X=C2:GOSUB8300:GOTO6340
6090 C2=I-A%(K)-(C1/2=INT(C1/2)):M%(C2,2)=1
6095 R=M%(C2,0):C=M%(C2,1):GOSUB9000:PRINT"";D$(1):X=C2:GOSUB8300:GOTO6340
6100 FORJ=HHTO2STEP-1:IFM%(J,2)=0ORM%(J-1,2)=1THEN6120
6110 M%(J,2)=0:X=J:GOSUB8300:R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(0)
6112 M%(J-1,2)=1:R=M%(J-1,0):C=M%(J-1,1):GOSUB9000:PRINT"";D$(1)
6115 X=J-1:GOSUB8300:J=2
6120 NEXT:GOTO6340
6150 FORI=1TO N:E=A%(I):FORJ=0TO5:F=E/2:B%(I,J)=2*(F-INT(F)):E=INT(F):NEXT:NEXT
6160 JL=0:FORJ=5TO0STEP-1:C2=0:H=0:FORI=1TO N:IFB%(I,J)=0THEN6190
6170 C2=C2+1:IFA%(I)<=HTHEN6190
6180 H=A%(I):G=I
6190 NEXT
6200 IFC2/2<>INT(C2/2)THENJL=1:J=0
6210 NEXT:IFJL=0THEN6300
6220 D=A%(G):A%(G)=0:FORJ=0TO5:B%(G,J)=0:C2=0:FORI=1TO N:IFB%(I,J)=1THENC2=C2+1
6230 NEXT:A%(G)=A%(G)+2*(C2/2-INT(C2/2))*2^J:NEXT
6240 C2=0:FORJ=HHTO2STEP-1:IFM%(J,2)=0THEN6270
6250 C2=C2+1:IF2*G-1>C2THEN6270
6260 M%(J,2)=0:X=J:GOSUB8300:R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(0):I=J:J=2
6270 NEXT
6280 X=I-D+A%(G):M%(X,2)=1:R=M%(X,0):C=M%(X,1):GOSUB9000:PRINT"";D$(1)
6290 GOSUB8300:GOTO6340
6300 FORJ=1TOHH-1:IFM%(J,2)=1ORM%(J+1,2)=0THEN6330
6310 M%(J+1,2)=0:X=J+1:GOSUB8300:R=M%(J+1,0):C=M%(J+1,1):GOSUB9000:PRINT"";D$(0)
6315 M%(J,2)=1:R=M%(J,0):C=M%(J,1):GOSUB9000:PRINT"";D$(1)
6320 X=J:GOSUB8300:J=HH-1
6330 NEXT
6340 IFM=4THENGETA$:IFA$="[139]"THENJK=1
6350 POKE198,0:RETURN
7000 R=7:C=27:GOSUB9000:PRINT"[215][201][206][211]!      "
7010 FORJ=0TO320:POKE53280,J AND15:NEXT:GOTO7300
7100 R=7:C=27:GOSUB9000:PRINT"[204][207][211][197][211]      "
7110 FORK=1TO35:FORJ=0TO15:POKE53270,J:NEXT:NEXT:POKE53270,200:GOTO7300
7200 R=7:C=27:GOSUB9000:PRINT"[154][199][193][205][197] [197][206][196][197][196]"
7210 R=22:C=27:GOSUB9000:PRINTB$;B$;
7300 R=11:C=27:GOSUB9000:PRINT"F7[154] [206]EW GAME"
7310 PRINTTAB(27);"F6[154] [209]UIT":POKE198,0
7320 GETA$:IFA$=""THENGOSUB9100:GOTO7320
7330 IFA$="[136]"THENFORI=1TOHH:M%(I,2)=0:NEXT:GOTO120
7340 IFA$<>"[139]"THEN7320
7350 PRINTCHR$(9);"[147]":POKE808,237:POKE818,237:GOTO40000
8000 EM=0:FORJ=JJTO1STEP-1:IFM%(J,2)=1THENHH=J:J=1
8010 NEXT:IFHH<2THEN8040
8020 FORJ=1TOHH:IFM%(J,2)=0THENEM=EM+1
8030 NEXT
8040 IFEM=0THENR=22:C=27:GOSUB9000:PRINTB$;B$;
8050 RETURN
8100 N=0:JS=HH
8110 JM=0:FORJ=JS TO2STEP-1:IFM%(J,2)=0THEN8150
8120 FORK=J-1TO1STEP-1:IFM%(K,2)=0THEN8140
8130 N=N+1:A%(N)=J-K-1:JS=K-1:K=1:J=2:JM=1
8140 NEXT:IFJM=0THENN=N+1:A%(N)=J-1:J=2
8150 NEXT
8160 IFJM=1ANDJS>1THEN8110
8170 RETURN
8300 POKE53370,0:R=M%(X,0):C=M%(X,1):GOSUB9000:FORJ1=1TO4:PRINT"";D$(1);
8310 PRINT"[145][157][157]";:FORJ2=1TO100:NEXT:PRINT"";D$(M%(X,2));"[145][157][157]";
8320 FORJ2=1TO100:NEXT
8330 NEXT:PRINT"";D$(M%(X,2)):POKE53371,0:RETURN
9000 POKE781,R:POKE782,C:POKE783,0:SYS65520:RETURN
9100 POKE53370,0:POKE1435,126:FORI3=1TO45:NEXT
9110 POKE1435,120
9120 POKE1436,126:FORI3=1TO40:NEXT
9130 POKE1436,120
9140 POKE1476,126:FORI3=1TO35:NEXT
9150 POKE1476,120
9160 POKE1475,126:FORI3=1TO30:NEXT
9170 POKE1475,120
9180 POKE53371,0:RETURN
10000 A$="0:B.SPIRAL SLIDE":DV=PEEK(186):IFDV<8ORDV>29THENDV=8
10010 OPEN15,DV,15,"S"+A$:CLOSE15:SAVEA$,DV:END
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[211] [208] [201] [210] [193] [204]   [211] [204] [201] [196] [197]
60040 Z$(2)[178]"BY ASCLOYD (null). (null)IRK
60050 Z$(4)="(C) 1998 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN